home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1996 May / cd joy 71No13.iso / pc / demos / eurosoc / source / makefilt.c < prev    next >
Text File  |  1996-01-17  |  802b  |  31 lines
  1. void makefilter(filter filt,byte fr,byte fg,byte fb,float mr,float mg,float mb)
  2.     {
  3.     word r1,g1,b1,r2,g2,b2;
  4.     word x,s,c,l1,l2,d1,d2;
  5.     if ((l1=sqrt(fr*fr+fg*fg+fb*fb))==0) l1=1;
  6.     for (x=0;x<768;x+=3)     
  7.         {
  8.         l2=sqrt(pal[x]*pal[x]+pal[x+1]*pal[x+1]+pal[x+2]*pal[x+2]);
  9.         r1=pal[x]+mr*(fr*l2/l1-pal[x]);
  10.         if (r1<0) r1=0;if (r1>255) r1=255;
  11.         g1=pal[x+1]+mg*(fg*l2/l1-pal[x+1]);
  12.         if (g1<0) g1=0;if (g1>255) g1=255;
  13.         b1=pal[x+2]+mb*(fb*l2/l1-pal[x+2]);
  14.         if (b1<0) b1=0;if (b1>255) b1=255;
  15.         r1=(fr-pal[x])*mr+pal[x];
  16.         g1=(fg-pal[x+1])*mg+pal[x+1];
  17.         b1=(fb-pal[x+2])*mb+pal[x+2];
  18.         d1=128;
  19.         for (s=0;s<768-16*3;s+=3)
  20.             {
  21.              r2=(pal[s]-r1);
  22.             g2=(pal[s+1]-g1);
  23.             b2=(pal[s+2]-b1);
  24.             d2=sqrt(r2*r2+g2*g2+b2*b2);
  25.             if (d2<d1) d1=d2,c=s;
  26.             }
  27.         filt[x/3]=c/3;
  28.         }
  29.     }
  30.  
  31.